00100		TITLE FSCAN
00200		ENTRY FSCAN
00300	;	CALL FSCAN
00400	;	GOTO RT
00500	;	GOTO LF
00600	;	GOTO UP
00700	;	GOTO DW
00800	;	GOTO 1/2
00900	;	GOTO *2
01000	;	GOTO X
01050	;	GOTO C
01100	;	EXIT
01200	
01300	FSCAN:	0
01400		INCHRW
01500		CAIN ";"
01600		JRA 16,(16)
01700		CAIN ":"
01800		JRA 16,1(16)
01900		CAIN "("
02000		JRA 16,2(16)
02100		CAIN ")"
02200		JRA 16,3(16)
02300		CAIN "/"
02400		JRA 16,4(16)
02500		CAIN "*"
02600		JRA 16,5(16)
02700		CAIN "X"
02800		JRA 16,6(16)
02850		CAIN "C"
02900		JRA 16,7(16)
02950		JRA 16,8(16)
03000		END